﻿Sub Plugin_PasteAsText()
	REM 转换成纯文本内容
	dim tempStr
	tempStr=getText()
	tempStr=Replace(tempStr,vbcrlf,"<br>")
	tempStr=Replace(tempStr," ","&nbsp;")
	setHTML(tempStr)
End Sub
